home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
VIS082S.ARJ
/
OVRCALL.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-03-07
|
412b
|
23 lines
Unit OvrCall;
{$O+,F+}
Interface
Uses
Overlay,configrt;
Implementation
Begin
readconfig;
OvrInit('VISION.OVR');
if configset.usems then ovrinitems;
if (ovrresult<>ovrok) and configset.usems then begin
writeln('Not enough EMS to put Overlay into memory!');
halt(4);
end;
If OvrResult <> OvrOK then
Begin
WriteLn('Overlay file not found.');
Halt(4);
End;
End.